ipak <- function(pkg){
new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
if (length(new.pkg))
install.packages(new.pkg, dependencies = TRUE)
sapply(pkg, require, character.only = TRUE)}
packages <- c("DT","readxl", "Rfast", "ggplot2", "plotly", "ggrepel","OpenRepGrid", "GridFCM.practicum", "viridisLite", "MVN", "ggpattern", "factoextra", "cluster", "RColorBrewer", "rcartocolor", "tidyr")
ipak(packages)
DT readxl Rfast ggplot2 plotly
TRUE TRUE TRUE TRUE TRUE
ggrepel OpenRepGrid GridFCM.practicum viridisLite MVN
TRUE TRUE TRUE TRUE TRUE
ggpattern factoextra cluster RColorBrewer rcartocolor
TRUE TRUE TRUE TRUE TRUE
tidyr
TRUE
#Clasificación en espacio PH, referencia mediana de p/h y sd/2
wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp_Ejemplo_a.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = 'vertices')
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)
#Clasificación en espacio PH, referencia mediana de p/h y sd/2
wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp2.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = 'none')
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)
NA
#Clasificación en espacio PH, referencia mediana de p/h y sd/2
wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp8.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = TRUE)
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)
NA
#Clasificación en espacio PH, referencia mediana de p/h y sd/2
wimp <- importwimp("C:\\Users\\gilmo\\Desktop\\Ruta_archivos\\wimps\\Wimp1.xlsx", sheet = 1, opr = 1)
ph_index_edicion2(wimp, method = "weight", std = 'vertices')
graph_ph_edicion2(wimp, mark.nva = TRUE, mark.cnt = TRUE, show.points = TRUE)
NA
LS0tDQp0aXRsZTogIlBvc2ljacOzbiBlbiBQX0ggKG1lZGlhbmEgbWFzIG1lbm9zIHNkLzIpIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3J9DQppcGFrIDwtIGZ1bmN0aW9uKHBrZyl7DQogIG5ldy5wa2cgPC0gcGtnWyEocGtnICVpbiUgaW5zdGFsbGVkLnBhY2thZ2VzKClbLCAiUGFja2FnZSJdKV0NCiAgaWYgKGxlbmd0aChuZXcucGtnKSkNCiAgICBpbnN0YWxsLnBhY2thZ2VzKG5ldy5wa2csIGRlcGVuZGVuY2llcyA9IFRSVUUpDQogIHNhcHBseShwa2csIHJlcXVpcmUsIGNoYXJhY3Rlci5vbmx5ID0gVFJVRSl9DQoNCnBhY2thZ2VzIDwtIGMoIkRUIiwicmVhZHhsIiwgIlJmYXN0IiwgImdncGxvdDIiLCAicGxvdGx5IiwgImdncmVwZWwiLCJPcGVuUmVwR3JpZCIsICJHcmlkRkNNLnByYWN0aWN1bSIsICJ2aXJpZGlzTGl0ZSIsICJNVk4iLCAiZ2dwYXR0ZXJuIiwgImZhY3RvZXh0cmEiLCAiY2x1c3RlciIsICJSQ29sb3JCcmV3ZXIiLCAicmNhcnRvY29sb3IiLCAidGlkeXIiKQ0KDQoNCmlwYWsocGFja2FnZXMpDQoNCmBgYA0KDQpgYGB7ciBXSU1QIEVKRU1QTE99DQoNCiNDbGFzaWZpY2FjacOzbiBlbiBlc3BhY2lvIFBILCByZWZlcmVuY2lhIG1lZGlhbmEgZGUgcC9oIHkgc2QvMg0KDQp3aW1wIDwtIGltcG9ydHdpbXAoIkM6XFxVc2Vyc1xcZ2lsbW9cXERlc2t0b3BcXFJ1dGFfYXJjaGl2b3NcXHdpbXBzXFxXaW1wX0VqZW1wbG9fYS54bHN4Iiwgc2hlZXQgPSAxLCBvcHIgPSAxKQ0KcGhfaW5kZXhfZWRpY2lvbjIod2ltcCwgbWV0aG9kID0gIndlaWdodCIsIHN0ZCA9ICd2ZXJ0aWNlcycpDQpncmFwaF9waF9lZGljaW9uMih3aW1wLCBtYXJrLm52YSA9IFRSVUUsIG1hcmsuY250ID0gVFJVRSwgc2hvdy5wb2ludHMgPSBUUlVFKQ0KYGBgDQoNCg0KDQpgYGB7ciBXSU1QIDJ9DQoNCiNDbGFzaWZpY2FjacOzbiBlbiBlc3BhY2lvIFBILCByZWZlcmVuY2lhIG1lZGlhbmEgZGUgcC9oIHkgc2QvMg0KDQp3aW1wIDwtIGltcG9ydHdpbXAoIkM6XFxVc2Vyc1xcZ2lsbW9cXERlc2t0b3BcXFJ1dGFfYXJjaGl2b3NcXHdpbXBzXFxXaW1wMi54bHN4Iiwgc2hlZXQgPSAxLCBvcHIgPSAxKQ0KcGhfaW5kZXhfZWRpY2lvbjIod2ltcCwgbWV0aG9kID0gIndlaWdodCIsIHN0ZCA9ICdub25lJykNCmdyYXBoX3BoX2VkaWNpb24yKHdpbXAsIG1hcmsubnZhID0gVFJVRSwgbWFyay5jbnQgPSBUUlVFLCBzaG93LnBvaW50cyA9IFRSVUUpDQoNCmBgYA0KDQoNCmBgYHtyIFdJTVAgOH0NCg0KI0NsYXNpZmljYWNpw7NuIGVuIGVzcGFjaW8gUEgsIHJlZmVyZW5jaWEgbWVkaWFuYSBkZSBwL2ggeSBzZC8yDQoNCndpbXAgPC0gaW1wb3J0d2ltcCgiQzpcXFVzZXJzXFxnaWxtb1xcRGVza3RvcFxcUnV0YV9hcmNoaXZvc1xcd2ltcHNcXFdpbXA4Lnhsc3giLCBzaGVldCA9IDEsIG9wciA9IDEpDQpwaF9pbmRleF9lZGljaW9uMih3aW1wLCBtZXRob2QgPSAid2VpZ2h0Iiwgc3RkID0gVFJVRSkNCmdyYXBoX3BoX2VkaWNpb24yKHdpbXAsIG1hcmsubnZhID0gVFJVRSwgbWFyay5jbnQgPSBUUlVFLCBzaG93LnBvaW50cyA9IFRSVUUpDQoNCmBgYA0KDQpgYGB7ciBXSU1QIDF9DQoNCiNDbGFzaWZpY2FjacOzbiBlbiBlc3BhY2lvIFBILCByZWZlcmVuY2lhIG1lZGlhbmEgZGUgcC9oIHkgc2QvMg0KDQp3aW1wIDwtIGltcG9ydHdpbXAoIkM6XFxVc2Vyc1xcZ2lsbW9cXERlc2t0b3BcXFJ1dGFfYXJjaGl2b3NcXHdpbXBzXFxXaW1wMS54bHN4Iiwgc2hlZXQgPSAxLCBvcHIgPSAxKQ0KcGhfaW5kZXhfZWRpY2lvbjIod2ltcCwgbWV0aG9kID0gIndlaWdodCIsIHN0ZCA9ICd2ZXJ0aWNlcycpDQpncmFwaF9waF9lZGljaW9uMih3aW1wLCBtYXJrLm52YSA9IFRSVUUsIG1hcmsuY250ID0gVFJVRSwgc2hvdy5wb2ludHMgPSBUUlVFKQ0KDQpgYGANCg0KDQoNCg==